Load libraries
library(leaflet)
library(tidyr)
library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
Read 2017 Car crash data in Allegheny County.
DF<-read.csv("CarCrash2017.csv")
Subset the location of the car crash Keep the month of the crash Create a new column with the months names instead of a number Since there is a large number of the crash There will be an option to show car crash per specific month
dfCrash<-select(DF,DEC_LAT,DEC_LONG,CRASH_MONTH)
colnames(dfCrash)<-c("latitude","longitude","Month Crash")
dfCrash<-dfCrash %>% drop_na()
dfCrash<-mutate(dfCrash,Month.Crash.Name=month.name[dfCrash$`Month Crash`])
Use a PNG file as an icon for markers on the MAP
CarsIcon <- makeIcon("CarsIcon1.png",iconWidth = 45, iconHeight = 45)
Helper function to add markers
Add_Marker <- function(my_map,lat_ln_data,groupname,iconMarker=CarsIcon) {
addMarkers(my_map,data=lat_ln_data,clusterOptions = markerClusterOptions(),group =groupname,icon = iconMarker)
}
Add a new column which will contains the number of fatilties.
DF<-mutate(DF,Death.Count=BICYCLE_DEATH_COUNT+BELTED_DEATH_COUNT+MCYCLE_DEATH_COUNT+PED_DEATH_COUNT+UNB_DEATH_COUNT)
dfCrash<-select(DF,DEC_LAT,DEC_LONG,Death.Count)
colnames(dfCrash)<-c("latitude","longitude","Death.Count")